home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib05.dsk / BLOCK LISTER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  575b  |  19 lines
  1. 63800  REM  BLOCK LISTER
  2. 63805  VTAB 22: HTAB 1: CALL  -958
  3. 63810  INPUT "BLOCK#=";BLOCK$
  4. 63815  IF BLOCK$ = ""  THEN  END 
  5. 63820 BLOCK =  INT( VAL(BLOCK$))
  6. 63825  IF (BLOCK <0)  OR (BLOCK >639)  THEN 63805
  7. 63830 X = 100 *BLOCK:Y = X +99
  8. 63835  HOME : GOSUB 63900: CALL  -912
  9. 63840  GOTO 63805
  10. 63900  REM  LIST X-Y
  11. 63905 ADRS =  PEEK(121) +256 * PEEK(122) +144
  12. 63910  FOR I = 4 TO 0  STEP  -1
  13. 63915  POKE ADRS +I,X -10 * INT(X/10) +48
  14. 63920 X =  INT(X/10)
  15. 63925  POKE ADRS +I +6,Y -10 * INT(Y/10) +48
  16. 63930 Y =  INT(Y/10)
  17. 63935  NEXT I
  18. 63940  LIST XXXXX -YYYYY
  19. 63945  RETURN